home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 098 / eds.arc / EDS1KEY.LSP next >
Encoding:
Text File  |  1987-03-14  |  1.6 KB  |  119 lines
  1. ;These functions allow commonly
  2. ;used commands to be executed with a
  3. ;single key stroke.
  4. ;
  5. ;Function file "EDS1KEY.LSP" - Execution command as shown
  6. ;
  7. ;Written by Christopher Conrad and Steve Brown
  8. ;
  9. ;
  10. (defun C:L ()
  11.   (command "line"))
  12.  
  13. (defun C:T ()
  14.   (command "text"))
  15.  
  16. (defun C:CI ()
  17.   (command "circle"))
  18.  
  19. (defun C:E ()
  20.   (command "erase"))
  21.  
  22. (defun C:EE ()
  23.   (command "extend"))
  24.  
  25. (defun C:TT ()
  26.   (command "trim"))
  27.  
  28. (defun C:B ()
  29.   (command "break"))
  30.  
  31. (defun C:RO ()
  32.   (command "rotate"))
  33.  
  34. (defun C:S ()
  35.   (command "stretch"))
  36.  
  37. (defun C:SC ()
  38.   (command "scale"))
  39.  
  40. (defun C:C ()
  41.   (command "copy"))
  42.  
  43. (defun C:M ()
  44.   (command "move"))
  45.  
  46. (defun C:O ()
  47.   (command "offset"))
  48.  
  49. (defun C:CC ()
  50.   (command "change"))
  51.  
  52. (defun C:PT ()
  53.   (command "point"))
  54.  
  55. (defun C:F ()
  56.   (command "fillet"))
  57.  
  58. (defun C:A ()
  59.   (command "array"))
  60.  
  61. (defun C:W ()
  62.   (command "zoom" "w"))
  63.  
  64. (defun C:PP ()
  65.   (command "pan"))
  66.  
  67. (defun C:P ()
  68.   (command "zoom" "p"))
  69.  
  70. (defun C:U ()
  71.   (command "undo" "1"))
  72.  
  73. (defun C:R ()
  74.   (command "redraw"))
  75.  
  76. (defun C:RR ()
  77.   (command "regen"))
  78.  
  79. (defun C:MM ()
  80.   (command "mirror"))
  81.  
  82. (defun C:D ()
  83.   (command "dist"))
  84.  
  85. (defun C:I ()
  86.   (command "insert"))
  87.  
  88. (defun C:LL ()
  89.   (command "list"))
  90.  
  91. (defun C:DL ()
  92.   (command "dim" "leader"))
  93.  
  94. (defun C:DV ()
  95.   (command "dim" "ver"))
  96.  
  97. (defun C:DH ()
  98.   (command "dim" "hor"))
  99.  
  100. (defun C:LS ()
  101.   (command "layer" "s"))
  102.  
  103. (defun C:LF ()
  104.   (command "layer" "f"))
  105.  
  106. (defun C:LT ()
  107.   (command "layer" "t"))
  108.  
  109.  C:BI ()
  110. ;  (dist"))
  111.  
  112. ;(defun C:I ()
  113. ;  (command "insert"))
  114.  
  115. ;(defun C:LL ()
  116. ;  (command "list"))
  117.  
  118.  
  119.